home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 4 - Memnon.iso / pc / assets / scorp_postcards_send.dxr / 00001_startMovie.ls next >
Encoding:
Text File  |  2002-03-25  |  1.3 KB  |  41 lines
  1. global gEcardSelected, gMusicEnabled, gEmailObj, gEmailResult, gNextMovie, gTheFrom, gTheAddr, gEmailErrorMessage, gTotalEmailToFields, gDefaultEmailReply, gTheBody, oLetters
  2.  
  3. on startMovie
  4.   global gProjWinName
  5.   if not gProjWinName then
  6.     nothing()
  7.   else
  8.     dosSetFrontWindow(gProjWinName)
  9.   end if
  10.   the timeOutList = []
  11.   if gEcardSelected < 1 then
  12.     gEcardSelected = 1
  13.   end if
  14.   gMusicEnabled = 1
  15.   gNextMovie = EMPTY
  16.   oLetters = []
  17.   setUpAudio()
  18.   set the text of field "user_email" to gDefaultEmailReply
  19.   set the text of field "user_body" to "your message"
  20.   set the text of field "rec1" to "friend e-mail 1"
  21.   set the text of field "rec2" to "friend e-mail 2"
  22.   set the text of field "rec3" to "friend e-mail 3"
  23.   set the text of field "rec4" to "friend e-mail 4"
  24.   set the text of field "rec5" to "friend e-mail 5"
  25.   if the platform contains "mac" then
  26.     gEmailObj = new(xtra("DirectEmail"), EMPTY, EMPTY, EMPTY, 136442244)
  27.   else
  28.     gEmailObj = new(xtra("DirectEmail"), EMPTY, EMPTY, EMPTY, 140693184)
  29.   end if
  30.   gEmailResult = EMPTY
  31.   gTheFrom = EMPTY
  32.   gTheAddr = EMPTY
  33.   gTheBody = EMPTY
  34.   gEmailErrorMessage = EMPTY
  35.   gTotalEmailToFields = 5
  36.   puppetSprite(31, 1)
  37.   sound(1).play(member("explosion"))
  38.   set the keyDownScript to "theKeyDown"
  39.   the timeOutList = []
  40. end
  41.